home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Atari Forever 4
/
Atari Forever 4.zip
/
Atari Forever 4.iso
/
PD_THEMA
/
DENKSPIE
/
SCHIEBER
/
INTRO.GFA
(
.txt
)
< prev
next >
Wrap
GFA-BASIC Atari
|
1986-02-05
|
3KB
|
127 lines
CLS
SETCOLOR 0,0
' ##############################################################################
' # MOTELSOFT VORSPANN CO.HARALD BREITMAIER MAI 88 #
' ##############################################################################
'
' ON BREAK GOSUB gfa
ON BREAK CONT
ON ERROR GOSUB gfa
'
GOSUB board
SETCOLOR 15,0
BMOVE VARPTR(bil1$),XBIOS(3),32000
'
' ------------------------------------------------------------------------------
' ------------------------------------------------------------------------------
zah%=1
in:
HIDEM
'
DO
a%=XBIOS(3)
intro:
SETCOLOR 14,0
READ a$,ff%
DEFTEXT 13,1,0,ff%
VSYNC
TEXT 0,100,319,a$
VSYNC
IF ff%<>10
FOR ii%=0 TO 7
SETCOLOR 14,ii%,ii%,ii% !ba%
PAUSE 6
NEXT ii%
ENDIF
'
IF ff%=10
FOR ii%=0 TO 7
SETCOLOR 14,ii%,ii%,ii% !Ba%
PAUSE 6
NEXT ii%
PAUSE 50
ENDIF
'
PAUSE 50
EXIT IF a$=" 1988 "
FOR i%=16320 TO 15860 STEP -4 !26880 Step -160
BMOVE a%+160,a%,i%
NEXT i%
SETCOLOR 14,0
PAUSE 10
LOOP
PAUSE 50
DEFFILL 0
PBOX 0,80,319,120
GET 0,120,319,199,ret$
PUT 0,0,ret$
PBOX 0,121,319,199
COLOR 2
BOX 0,80,159,120
BOX 160,80,319,120
SETCOLOR 15,7,7,7
PRINT AT(6,12);"ZUM SPIEL"
PRINT AT(26,12);"ZUM EDITOR"
PAUSE 20
SHOWM
REPEAT
MOUSE x%,y%,k%
x%=x% DIV 159
y%=y% DIV 40
' PRINT AT(1,1);x%;" ";y%;" "
UNTIL k%
IF x%=0
CHDIR "\"
CHAIN "A:\SCHIEBER\SCHIEBER.GFA"
ELSE
CHDIR "\"
CHAIN "A:\SCHIEBER\EDITOR3.GFA"
ENDIF
GOSUB gfa
' ------------------------------------------------------------------------------
PROCEDURE gfa
SETCOLOR 0,7,7,7
SETCOLOR 15,0
EDIT
RETURN
' ------------------------------------------------------------------------------
dat1:
DATA MOTELSOFT,12
DATA PRESENTS,9
DATA SCHIEBUNG,10
DATA VERSION 1.0 ,8
DATA IDEE ,4
DATA UND VIELE LEVELS,4
DATA WOLFGANG KAYKO,5
DATA PROGRAMMIERUNG,4
DATA UND ,4
DATA GRAFIK ,4
DATA HARALD BREITMAIER,6
DATA 1988 ,5
DATA LOADING PROGRAM ,4
DATA END,0
' ------------------------------------------------------------------------------
PROCEDURE board
bil1$=SPACE$(32100)
'
farb$=SPACE$(34) !originalfarben des bildes laden
CLOSE #1
OPEN "i",#1,"A:\SCHIEBER\ART\TITEL.PI1"
BGET #1,VARPTR(farb$),34 !und in string farb$ ablegen
MID$(farb$,1,1)=CHR$(240) !code farbstring geladen
z%=0
FOR i%=3 TO LEN(farb$) STEP 2 !jeweils 2 werte ergeben die farbe
farb1$=MID$(farb$,i%) !wert 1
farb2$=MID$(farb$,i%+1) !wert 2
a%=ASC(farb1$) !ascii code
b%=ASC(farb2$) !asci code
c%=a%*256+b% !wandeln in farbcode
SETCOLOR z%,c% !in die farbregister damit
INC z% !hilfszahler
NEXT i%
BGET #1,VARPTR(bil1$),32000
CLOSE #1
'
RETURN
'